home *** CD-ROM | disk | FTP | other *** search
/ Utilities Professional 1-1500 / Utilities Professional 1-1500 (1994)(WPD)[!].iso / 12511500 / var1297.dms / var1297.adf / Rexx / EP_Loadmodules.dopus < prev    next >
Text File  |  1978-01-07  |  2KB  |  88 lines
  1. /* Eagleplayer-DOpus-Steuerung
  2.    (c) 1993 DEFECT
  3.  
  4.  - spielt übergebene Song(s) und testet darauf,ob wirklich was übergeben wurde
  5.  
  6.  - lädt gegebenenfalls Eagleplayer (Pfad richtig anpassen,siehe unten !)
  7.  
  8.  - in Opus als "Executable" ("Arexx") einbinden, asynchron starten ! (siehe
  9.    Handbuch), folgende Kommandozeile:  EP_Loadmodules.dopus
  10.  
  11. */
  12.  
  13. options results
  14.  
  15. if pos('rexx_EP',SHOW('Ports')) = 0 then
  16.  do
  17.  
  18.   Waittime = 60        /* 1 min Wartezeit, bei Bedarf ändern */
  19.  
  20.             /* Eagle laden , Pfad bei Bedarf ändern !!!!!! */
  21.   address COMMAND 'sys:Eagleplayer'
  22.  
  23.   testflag=0
  24.   time ('R')
  25.  
  26.   address 'DOPUS.1'        /* address 'DOPUS.1' */
  27.   toptext 'Attempting to Load Eagleplayer !'
  28.  
  29.   do while (testflag=0) & (time('E') < Waittime)
  30.    if (pos('rexx_EP',SHOW('Ports')) ~= 0) then testflag =1
  31.   end
  32.  
  33.   if pos('rexx_EP',SHOW('Ports')) ~= 0 then
  34.     toptext 'Eagleplayer loaded'
  35.    else
  36.     do
  37.      toptext 'Couldn`t load Eagleplayer !'
  38.      exit
  39.     end
  40. end
  41.  
  42. address 'DOPUS.1'        /* address 'DOPUS.1' */
  43. status 3
  44. ac=result
  45. status 13 ac
  46. dirname=result
  47. sels='"'||dirname||'"'
  48.  
  49. getselectedall '/'
  50. selected = RESULT
  51. if selected~="RESULT" then do
  52. files =""
  53. anz=""
  54.  
  55.  DO WHILE selected~=""
  56.   PARSE VAR selected name '/' selected
  57.   files=files||'"'||name||'" '
  58.   anz=anz||1
  59.  END
  60.  
  61.  if anz="1" then do
  62.     sels='"'||dirname||name||'"'
  63.  end
  64.  else
  65.     do
  66.     sels=sels||files
  67.  end
  68.  
  69.  
  70.  if sels~= "" then do
  71.     address 'DOPUS.1'        /* address 'DOPUS.1' */
  72.     toptext 'Eagleplayer: Attempting to Load Module(s) !'
  73.     address 'rexx_EP'
  74.     Loadmodule sels
  75.     aha=result
  76.     address 'DOPUS.1'        /* address 'DOPUS.1' */
  77.     toptext 'Eagleplayer: '||aha
  78.  end
  79. end
  80.  
  81. else
  82.   do
  83.     address 'DOPUS.1'        /* address 'DOPUS.1' */
  84.     toptext 'Eagleplayer: No Module selected !'
  85.   end
  86.  
  87. exit
  88.